home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 201 / DPCS1104.ISO / Full / QuickBooks / QBTutor / Lesson5 / Lesson5.dcr / 00203_put arrows on item list.ls < prev    next >
Encoding:
Text File  |  2001-02-01  |  1.2 KB  |  35 lines
  1. property pSpriteStart, pSpriteEnd, pFixToCol, pDDSprite, spriteNum
  2. global itemListRow
  3.  
  4. on getPropertyDescriptionList
  5.   description = [:]
  6.   addProp(description, #pSpriteStart, [#default: 0, #format: #number, #comment: "Sprite Range start:"])
  7.   addProp(description, #pSpriteEnd, [#default: 0, #format: #number, #comment: "Sprite Range end:"])
  8.   addProp(description, #pFixToCol, [#default: 0, #format: #number, #comment: "Associate with column:"])
  9.   addProp(description, #pDDSprite, [#default: 0, #format: #number, #comment: "Drop-Down Sprite:"])
  10.   return description
  11. end
  12.  
  13. on exitFrame me
  14.   inn = -1
  15.   repeat with i = pSpriteStart to pSpriteEnd
  16.     if i = the keyboardFocusSprite then
  17.       inn = i
  18.       exit repeat
  19.     end if
  20.   end repeat
  21.   if the keyboardFocusSprite > 0 then
  22.     itemListRow = 0
  23.   end if
  24.   if (inn > 0) or (itemListRow > 0) then
  25.     if inn > 0 then
  26.       itemListRow = value(the last char in the name of the member of sprite(inn))
  27.     end if
  28.     tVert = sprite(pSpriteStart).locV - 15 + (itemListRow * 15)
  29.     sprite(spriteNum).locV = tVert
  30.     sprite(spriteNum).locH = sprite(pSpriteStart + pFixToCol).locH + sprite(pSpriteStart + pFixToCol).width
  31.   else
  32.     sprite(spriteNum).locV = 700
  33.   end if
  34. end
  35.